module Main where
import Foreign
import Foreign.C

import Libcell




main :: IO ()
main = do
    test_cut
    mytest
    v<- get_vertex
   --- v<- new (Vertex 98 nullPtr 0 nullPtr nullPtr nullPtr nullPtr (VertexT 0))
    v_<-peek v
    putStrLn $show $ vertex_get_id v_  
    putStrLn "Hello, Haskell!"
    
         

